MACD 5/MACD 5.bin/internet/irc_i_dodatki/mcf_buttons/rexx/mcf_www.amirx

Text File | 1997-03-01 | 1KB | 13 lines

/* MCF_WWW.AMIRX
// $VER: MCF_WWW.AMIRX 5.0.1 (27.02.97) (MCF Extra Command)
\\ Written by Donald T. Becker ([e-mail]) IRC: StarDustr
// Please mail any bug reports/comments to the above address with a subject
\\ header of MCF.AMIRX.
//
\\  MUI GUI portion of scripts uses 3 ports:
//      MCFGB   MCFWB  and  MCFRB
\\
// ** What to do with this file?
\\ Put this script in REXX:
*/
;parse arg MyURL junk;WBPorts=show('p')||' ';select;when MyURL="" then;MyURL="http://home.ptd.net/~strdustr/MCF.html";when MyURL="URL" then;do;if ~open("Clip","Clips:0",'r') then exit;xx=readln("Clip");call close("Clip");MyURL=substr(xx,21);end;otherwise nop;end;if 0=pos("://",MyURL) then MyURL="http://"||MyURL;select;when 0~=pos("AMOSAIC.",WBPorts) then;do;as=pos("AMOSAIC.",WBPorts);ae=pos(' ',WBPorts,as)-as;port=substr(WBPorts,as,ae);interpret "address" port "'JUMP URL' MyURL";end;when 0~=pos("AWEB.",WBPorts) then;do;as=pos("AWEB.",WBPorts);ae=pos(' ',WBPorts,as)-as;port=substr(WBPorts,as,ae);interpret "address" port "'OPEN' MyURL";end;when 0~=pos("IBROWSE",WBPorts) then;do;address IBROWSE "GOTOURL" MyURL;end;when 0~=pos("MINDWALKER",WBPorts) then;do;address MINDWALKER "openurl" MyURL;end;when 0~=pos("VOYAGER",WBPorts) then;do;address VOYAGER "openurl" MyURL;end;otherwise call LoadWWW();end;exit;LoadWWW:;WClip=getclip("mcfb_WWW");if WClip="" then exit;address command "Run >Nil:" WClip MyURL;return